unit ProcedureUnit;

interface

uses SysUtils,ExtCtrls, Afficher, StdCtrls;

Procedure Sauver(Image : Timage; SacPos, Joueur : byte; Score, Tour : integer; Lettres : String; PremLettre : Boolean);

Function LettreUtilisees(Str : String; X, Y : Byte; Hor : Boolean): String;

Var ScoresSave, TourSave : integer;
    SacPosSave, JoueurSave : byte;
    Tab : afficher.TabloCarre;
    Plateau : afficher.tabloLettre;
    LettresSave : String;
    PremLettreSave : Boolean;

implementation

Procedure Sauver(Image : Timage; SacPos, Joueur : byte; Score, Tour : integer; Lettres : String; PremLettre : Boolean);
Begin
    Image.Picture.SaveToFile('Tmp.bmp');
    SacPosSave := SacPos;
    Tab := Afficher.Tab;
    Plateau := afficher.Plateau;
    ScoresSave := Score;
    JoueurSave := Joueur;
    LettresSave := Lettres;
    TourSave := Tour;
    PremLettreSave := PremLettre;
End;



Function LettreUtilisees(Str : String; X, Y : Byte; Hor : Boolean): String;
Var I : Byte;
Begin

IF Hor Then
  For I := X To X + Length(Str) - 1 Do
    Begin
      IF Afficher.Plateau[I,Y] <> '' Then
        Delete(Str,Pos(Afficher.plateau[I,Y],Str),1);
    End
Else
  For I := Y To Y + Length(Str) - 1 Do
    Begin
      IF Afficher.Plateau[X,I] <> '' Then
        Delete(Str,Pos(Afficher.plateau[X,I],Str),1);
    End;

Result := Str;

End;

end.